len_ Function

private elemental function len_(string) result(length)

Get the length of a varying string

Arguments

Type	Intent	Optional	Attributes		Name
type(varying_string),	intent(in)			::	string

Return Value integer

Source Code

  elemental function len_ (string) result (length)

    type(varying_string), intent(in) :: string
    integer                          :: length


    if(ALLOCATED(string%chars)) then
       length = SIZE(string%chars)
    else
       length = 0
    endif

! Finish

    return

  end function len_